10 S1=54272:REM $D400=STARTADRESSE SID1
20 S2=S1+32:REM $D420=STARTADRESSE SID2
30 POKES1+24,15:POKES2+24,15
40 FORJ=0TO2
50 READ FL,FH,EL,EH
60 POKES1+(J*7),FL:POKES1+1+(J*7),FH
70 POKES2+(J*7),EL:POKES2+1+(J*7),EH
80 NEXTJ
90 FOR M=0TO2
100 FOR J=0TO1
110 POKES1+(J*32)+(M*7)+5,3*16+15
120 POKES1+(J*32)+(M*7)+6,15*16+8
130 POKES1+(J*32)+(M*7)+4,33
140 FORI=1TO200:NEXT
150 NEXTJ,M
160 GETA$:IFA$<>" "THEN160
170 FOR J=1TO0STEP-1
180 FOR M=2TO0STEP-1
190 POKES1+(J*32)+(M*7)+4,32
200 FORI=1TO200:NEXT
210 NEXTM,J
220 DATA 90,4,123,5,133,6,180,8,247,10,10,13